home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / mac / MAC / School House / Misc. / Exercise / card_2968.txt < prev    next >
Text File  |  1988-01-10  |  8KB  |  318 lines

  1. -- card: 2968 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2602
  5. -- name: BENCH PRESS
  6.  
  7.  
  8. -- part 6 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=145 top=61 right=82 bottom=307
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 128
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: EXERCISE
  20.  
  21.  
  22. -- part 11 (field)
  23. -- low flags: 00
  24. -- high flags: 0007
  25. -- rect: left=184 top=105 right=219 bottom=270
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 128
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: WEIGHT
  34. ----- HyperTalk script -----
  35. on mouseWithin
  36.   get the scroll of card field "WEIGHT"
  37.   set the scroll of card field "DATE" to it
  38.   set the scroll of card field "REPS" to it
  39.   set the scroll of card field "SETS" to it
  40. end mouseWithin
  41.  
  42.  
  43.  
  44. -- part 12 (field)
  45. -- low flags: 00
  46. -- high flags: 0007
  47. -- rect: left=296 top=106 right=220 bottom=383
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 128
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: REPS
  56. ----- HyperTalk script -----
  57. on mouseWithin
  58.   get the scroll of card field "REPS"
  59.   set the scroll of card field "DATE" to it
  60.   set the scroll of card field "WEIGHT" to it
  61.   set the scroll of card field "SETS" to it
  62. end mouseWithin
  63.  
  64.  
  65.  
  66. -- part 13 (field)
  67. -- low flags: 00
  68. -- high flags: 0007
  69. -- rect: left=412 top=106 right=223 bottom=494
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 128
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: SETS
  78. ----- HyperTalk script -----
  79. on mouseWithin
  80.   get the scroll of card field "SETS"
  81.   set the scroll of card field "DATE" to it
  82.   set the scroll of card field "WEIGHT" to it
  83.   set the scroll of card field "REPS" to it
  84. end mouseWithin
  85.  
  86.  
  87.  
  88. -- part 14 (field)
  89. -- low flags: 00
  90. -- high flags: 0007
  91. -- rect: left=52 top=105 right=220 bottom=146
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 128
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: DATE
  100. ----- HyperTalk script -----
  101. on mouseWithin
  102.   get the scroll of card field "DATE"
  103.   set the scroll of card field "WEIGHT" to it
  104.   set the scroll of card field "REPS" to it
  105.   set the scroll of card field "SETS" to it
  106. end mouseWithin
  107.  
  108.  
  109.  
  110. -- part 19 (button)
  111. -- low flags: 00
  112. -- high flags: 8003
  113. -- rect: left=28 top=275 right=297 bottom=128
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: NEW EXERCISE
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   ask "What is the name of the exercise?" with "New Exercise"
  125.   doMenu copy card
  126.   doMenu paste card
  127.   set the name of this card to it
  128.   put it into card field "exercise"
  129.   put " " into card field "weight"
  130.   put " " into card field "reps"
  131.   put " " into card field "sets"
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 20 (button)
  137. -- low flags: 00
  138. -- high flags: A003
  139. -- rect: left=204 top=274 right=296 bottom=260
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: WEIGHT
  148. ----- HyperTalk script -----
  149. on mouseUp
  150.   PUSH CARD
  151.   PUT SHORT NAME OF THIS CARD INTO EXNAME
  152.   GO TO CARD "CHART"
  153.   PUT CARD FIELD "WEIGHT" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
  154.   PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
  155.   PUT  " WEIGHT" AFTER BACKGROUND FIELD "GRAPH NAME"
  156.   put the userLevel into saveLevel
  157.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  158.   if the userLevel < 3 then exit mouseUp
  159.   CLEARSCREEN
  160.   put empty into background field "total"
  161.   reset paint
  162.   choose rect tool
  163.   set lineSize to 1
  164.   set pattern to 14
  165.   set filled to true
  166.   put frameleft() into horiz
  167.   put maxLine(field "DATA") into maxValue
  168.   put the number of lines in field "DATA" into dataCount
  169.   put round(framewidth()/dataCount) into horizStep
  170.   put round(horizStep * 3/4) into width
  171.   repeat with i = 1 to dataCount
  172.     get line i of field "DATA"
  173.     if it is not empty then
  174.       put round(frameheight() * it / maxValue) into height
  175.       drag from horiz,framebottom()-height to horiz+width,framebottom()
  176.     end if
  177.     add horizStep to horiz
  178.   end repeat
  179.   reset paint
  180.   choose browse tool
  181.   set userLevel to saveLevel
  182. end mouseUp
  183.  
  184.  
  185.  
  186.  
  187. -- part 21 (button)
  188. -- low flags: 00
  189. -- high flags: A003
  190. -- rect: left=316 top=274 right=296 bottom=372
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: REPS
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   PUSH CARD
  202.   PUT SHORT NAME OF THIS CARD INTO EXNAME
  203.   GO TO CARD "CHART"
  204.   PUT CARD FIELD "REPS" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
  205.   PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
  206.   PUT  " REPS" AFTER BACKGROUND FIELD "GRAPH NAME"
  207.   put the userLevel into saveLevel
  208.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  209.   if the userLevel < 3 then exit mouseUp
  210.   CLEARSCREEN
  211.   put empty into background field "total"
  212.   reset paint
  213.   choose rect tool
  214.   set lineSize to 1
  215.   set pattern to 14
  216.   set filled to true
  217.   put frameleft() into horiz
  218.   put maxLine(field "DATA") into maxValue
  219.   put the number of lines in field "DATA" into dataCount
  220.   put round(framewidth()/dataCount) into horizStep
  221.   put round(horizStep * 3/4) into width
  222.   repeat with i = 1 to dataCount
  223.     get line i of field "DATA"
  224.     if it is not empty then
  225.       put round(frameheight() * it / maxValue) into height
  226.       drag from horiz,framebottom()-height to horiz+width,framebottom()
  227.     end if
  228.     add horizStep to horiz
  229.   end repeat
  230.   reset paint
  231.   choose browse tool
  232.   set userLevel to saveLevel
  233. end mouseUp
  234.  
  235.  
  236.  
  237.  
  238. -- part 22 (button)
  239. -- low flags: 00
  240. -- high flags: A003
  241. -- rect: left=426 top=274 right=296 bottom=482
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 0 / 0
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: SETS
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   PUSH CARD
  253.   PUT SHORT NAME OF THIS CARD INTO EXNAME
  254.   GO TO CARD "CHART"
  255.   PUT CARD FIELD "SETS" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
  256.   PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
  257.   PUT  " SETS" AFTER BACKGROUND FIELD "GRAPH NAME"
  258.   put the userLevel into saveLevel
  259.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  260.   if the userLevel < 3 then exit mouseUp
  261.   CLEARSCREEN
  262.   put empty into background field "total"
  263.   reset paint
  264.   choose rect tool
  265.   set lineSize to 1
  266.   set pattern to 14
  267.   set filled to true
  268.   put frameleft() into horiz
  269.   put maxLine(field "DATA") into maxValue
  270.   put the number of lines in field "DATA" into dataCount
  271.   put round(framewidth()/dataCount) into horizStep
  272.   put round(horizStep * 3/4) into width
  273.   repeat with i = 1 to dataCount
  274.     get line i of field "DATA"
  275.     if it is not empty then
  276.       put round(frameheight() * it / maxValue) into height
  277.       drag from horiz,framebottom()-height to horiz+width,framebottom()
  278.     end if
  279.     add horizStep to horiz
  280.   end repeat
  281.   reset paint
  282.   choose browse tool
  283.   set userLevel to saveLevel
  284. end mouseUp
  285.  
  286.  
  287.  
  288.  
  289. -- part contents for card part 6
  290. ----- text -----
  291. BENCH PRESS
  292.  
  293. -- part contents for card part 14
  294. ----- text -----
  295. 1/5/88
  296. 1/7/88
  297. 1/9/88
  298.  
  299.  
  300.  
  301.  
  302. -- part contents for card part 11
  303. ----- text -----
  304. 55
  305. 55
  306. 66
  307.  
  308. -- part contents for card part 12
  309. ----- text -----
  310. 15
  311. 15
  312. 12
  313.  
  314. -- part contents for card part 13
  315. ----- text -----
  316. 3
  317. 3
  318. 3